home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11a.d64
/
circle mover
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
871b
|
38 lines
10 REM ***********************
20 REM * "CIRCLE MOVER" *
30 REM * VON LEIF KOBBELT *
40 REM * 7500 KARLSRUHE 1 *
50 REM * GRAF-RHENASTR. 23 *
60 REM ***********************
70 :
80 :
100 INPUT"[147] STARTADRESSE ";S
110 INPUT" FUR WELCHE BIT-MAP (1-7) ";T
120 OPEN1,8,0,"CIRCLE.CODE":GET#1,A$,A$
130 GET#1,A$:A=ASC(A$+CHR$(0))
140 POKES+B,A:B=B+1
150 IFST<>64THEN130
160 CLOSE1
170 FORA=1TO11
180 READC1,C2:C1=C1+S:C2=C2+S
190 C3=INT(C2/256):C4=C2-C3*256
200 POKEC1,C4:POKEC1+1,C3
210 NEXT
220 POKES+435,T*32
230 PRINT"[147] ABSPEICHERN ?"
240 POKE198,0:WAIT198,1:GETA$
250 IFA$="N"THENPRINT"[147]":END
260 IFA$<>"J"THEN190
270 SYS (57812)"CIRCLE"+STR$(S),8,1
280 S1=INT(S/256):S2=S-S1*256
290 POKE193,S2:POKE194,S1
300 S=S+465:S1=INT(S/256):S2=S-S1*256
310 POKE174,S2:POKE175,S1
320 SYS 62954
330 PRINT"[147]":END
340 :
350 :
1000 DATA 31,232,51,232,125,136,153,236
1010 DATA 214,256,221,46,228,256,295
1020 DATA 322,306,322,328,335,356,360